# alpha.bags : function (bp, alpha = 0.95, which = NULL, col = ez.col, lty = 1, lwd = 1,
# max = 2500, trace = TRUE)
# axes : function (bp, X.names = colnames(bp$X), which = 1:bp$p, col = grey(0.7),
# lwd = 1, lty = 1, label.dir = "Orthog", label.col = col, label.cex = 0.75,
# label.dist = 0, ticks = 5, tick.col = col, tick.size = 1, tick.label = TRUE,
# tick.label.col = tick.col, tick.label.cex = 0.6, tick.label.side = "left",
# tick.label.offset = 0.5, tick.label.pos = 1, predict.col = col, predict.lwd = lwd,
# predict.lty = lty, ax.names = X.names, orthogx = 0, orthogy = 0)
# biplot : function (data, group.aes = NULL, center = TRUE, scaled = FALSE, Title = NULL)
# concentration.ellipse : function (bp, df = 2, kappa = NULL, which = NULL, alpha = 0.95, col = ez.col,
# lty = 1, lwd = 1, alpha.transparency = 0.5, trace = TRUE)
# CVA : function (bp, dim.biplot = c(2, 1, 3), e.vects = 1:ncol(bp$X), group.aes = bp$group.aes,
# weightedCVA = "weighted", ...)
# legend.type : function (bp, samples = FALSE, means = FALSE, bags = FALSE, ellipses = FALSE,
# new = FALSE, ...)
# PCA : function (bp, dim.biplot = c(2, 1, 3), e.vects = 1:ncol(bp$X), group.aes = NULL,
# correlation.biplot = FALSE, ...)
# samples : function (bp, col = ez.col, pch = 3, cex = 1, label = FALSE, label.cex = 0.75,
# label.side = "bottom", connected = FALSE, alpha = 1)